home *** CD-ROM | disk | FTP | other *** search
/ Visual Basic Toolbox / Visual Basic Toolbox (P.I.E.)(1996).ISO / avi / vbmmde / frmvideo.fr_ / frmvideo.fr
Text File  |  1994-02-16  |  1KB  |  53 lines
  1. VERSION 2.00
  2. Begin Form frmVideo 
  3.    BackColor       =   &H00400000&
  4.    BorderStyle     =   1  'Fixed Single
  5.    Caption         =   "MMDemo Video Player"
  6.    ClientHeight    =   645
  7.    ClientLeft      =   1560
  8.    ClientTop       =   5430
  9.    ClientWidth     =   5700
  10.    ClipControls    =   0   'False
  11.    ControlBox      =   0   'False
  12.    Height          =   1050
  13.    Left            =   1500
  14.    LinkTopic       =   "Form2"
  15.    MaxButton       =   0   'False
  16.    MinButton       =   0   'False
  17.    ScaleHeight     =   645
  18.    ScaleWidth      =   5700
  19.    Top             =   5085
  20.    Width           =   5820
  21.    Begin CommandButton cmdVidExit 
  22.       Caption         =   "E&xit"
  23.       Height          =   375
  24.       Left            =   4560
  25.       TabIndex        =   1
  26.       Top             =   120
  27.       Width           =   975
  28.    End
  29.    Begin MMControl mmVideo 
  30.       Height          =   375
  31.       Left            =   120
  32.       TabIndex        =   0
  33.       Top             =   120
  34.       Width           =   4215
  35.    End
  36. End
  37. Option Explicit
  38.  
  39. Sub cmdVidExit_Click ()
  40.     Unload frmVideo
  41. End Sub
  42.  
  43. Sub Form_Load ()
  44.     ' set properties
  45.     frmVideo.mmVideo.Notify = False
  46.     frmVideo.mmVideo.Wait = True
  47.     frmVideo.mmVideo.Shareable = False
  48.     frmVideo.mmVideo.DeviceType = "AVIVideo"
  49.     frmVideo.mmVideo.FileName = "\mmdemo\earth.avi"
  50.     frmVideo.mmVideo.Command = "Open"
  51. End Sub
  52.  
  53.